This is just data and library loading and some minor preprocessing

library(plotly)
library(plyr)
data<-mtcars
data$am<-as.factor(data$am)
levels(data$am)<-list(Automatic="0",Manual="1")

This is the end of the presentation for the project.